home *** CD-ROM | disk | FTP | other *** search
GW-BASIC | 1985-07-12 | 4.9 KB | 87 lines
10 REM ============================ MENUBWL ================================= 20 REM This program presents a menu of the programs available on this === 30 REM diskette and allows the user to select a program by moving the === 40 REM cursor to the desired program and pressing ENTER. === 50 REM ====================================================================== 60 REM Turn off KEY display, set display width, clear the screen and set === 70 REM KEY(10) to reload this menu program when pressed in command mode. === 80 REM ===================================================================== 90 KEY OFF:WIDTH 80:CLS:KEY 10,"run "+CHR$(34)+"a:menu"+CHR$(13) 100 REM ===================================================================== 110 REM Display the menu of the programs available on this diskette. === 120 REM ===================================================================== 130 LOCATE 1,25,0:COLOR 0,7:PRINT " League Secretary's System "; 140 LOCATE 3,10:COLOR 7,0:PRINT "The following programs are available on this diskette:"; 150 LOCATE 4,30:PRINT " WEEKLY PROCESSING PROGRAMS" 160 LOCATE 5,30:PRINT "SCORES Enter Scores" 170 LOCATE 6,30:PRINT "RECAP Print Summary Sheet" 180 LOCATE 7,30:PRINT " " 190 LOCATE 8,30:PRINT " MAINTENANCE PROGRAMS" 200 LOCATE 9,30:PRINT "CREATE Initialize League Master Files" 210 LOCATE 10,30:PRINT "SCHEDULE Create Master Schedule File" 220 LOCATE 11,30:PRINT "CHANGE Update Bowler & Team Headers Records" 230 LOCATE 12,30:PRINT "PRINT Print Utility - Tm/Bowler Headers" 240 LOCATE 13,30:PRINT "DETAIL Print Utility - Tm/Bowler Detail Rec" 250 LOCATE 14,30:PRINT "SORTFILE Sort and Print in Alphabetic Sequence" 260 LOCATE 15,30:PRINT "RECORDD Display Record Sheets" 270 LOCATE 16,30:PRINT "RECORDP Print Record Sheets" 280 LOCATE 17,30:PRINT "FINAL Print Final Standings and Averages" 290 LOCATE 20,1:PRINT"Use the ";:COLOR 15:PRINT"UP ("CHR$(24)")";:COLOR 7:PRINT" and ";:COLOR 15:PRINT"DOWN ("CHR$(25)")";:COLOR 7:PRINT" arrows to position the cursor to the function" 300 LOCATE 21,1:PRINT"desired and then press the ";:COLOR 15:PRINT"ENTER ("CHR$(17)CHR$(196)CHR$(217)")";:COLOR 7:PRINT" key." 310 REM ===================================================================== 320 REM Set up the initial coordinates for the selection arrow. === 330 REM ===================================================================== 340 X=25:Y=5 350 REM ===================================================================== 360 REM Set up UP and DOWN arrows for moving selection arrow. === 370 REM ===================================================================== 380 KEY(11) ON:KEY(14) ON:ON KEY(11) GOSUB 600:ON KEY(14) GOSUB 650 390 REM ===================================================================== 400 REM Set up KEY(10) to return to MENU program on A-disk. === 410 REM ===================================================================== 420 KEY(10) ON:ON KEY(10) GOSUB 860 430 REM ===================================================================== 440 REM Display highlighted selection arrow at Y,X. === 450 REM ===================================================================== 460 COLOR 31:LOCATE Y,X:PRINT "==>"; 470 POKE 106,0'clear kybd buffer 480 REM ===================================================================== 490 REM If ENTER is pressed, go to program run routine. === 500 REM ===================================================================== 510 IF INKEY$ = CHR$(13) THEN BEEP:COLOR 7:CLS:GOTO 700 520 REM ===================================================================== 530 REM Display the date and time at the bottom of the display. === 540 REM ===================================================================== 550 COLOR 7:LOCATE 25,25:PRINT DATE$,TIME$; 560 GOTO 460 570 REM ===================================================================== 580 REM Move the selection arrow up if it isn't at the top of the menu. === 590 REM ===================================================================== 600 BEEP:Y1=CSRLIN:X1=POS(0):LOCATE Y,X:PRINT " ";:LOCATE Y1,X1:IF Y>5 THEN Y=Y-1 610 RETURN 460 620 REM ===================================================================== 630 REM Move the selection arrow down if it isn't at the top of the menu. === 640 REM ===================================================================== 650 BEEP:Y1=CSRLIN:X1=POS(0):LOCATE Y,X:PRINT " ";:LOCATE Y1,X1:IF Y<17 THEN Y=Y+1 660 RETURN 460 670 REM ===================================================================== 680 REM Run the selected program. If selection is invalid, return to menu.=== 690 REM ===================================================================== 700 IF Y=5 THEN RUN "A:SCORES" 710 IF Y=6 THEN RUN "A:RECAP" 720 IF Y=9 THEN RUN "A:CREATE" 730 IF Y=10 THEN RUN "A:SCHEDULE" 740 IF Y=11 THEN RUN "A:CHANGE" 750 IF Y=12 THEN RUN "A:PRINT" 760 IF Y=13 THEN RUN "A:DETAIL" 770 IF Y=14 THEN RUN "A:SORTFILE" 780 IF Y=15 THEN RUN "A:RECORDD" 790 IF Y=16 THEN RUN "A:RECORDP" 800 IF Y=17 THEN RUN "A:FINAL" 810 BEEP:LOCATE 2,1:PRINT "Please make another selection." 820 FOR I=1 TO 1000:NEXT I:RUN 830 REM ===================================================================== 840 REM Return to MENU program on the A-disk. === 850 REM ===================================================================== 860 COLOR 7,0:RUN "MENU" 
(.txt)